home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
UpTime Volume 1 #11
/
uv1n11s1.d64
/
reader's survey
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-28
|
5KB
|
201 lines
3 rem * pgm title : reader's survey
4 rem * pgm author: dave hammond
6 rem * (c)1986 softdisk publishing
20 print chr$(8)chr$(14)
30 uptime=(8*4096)+4: de=186
40 poke53280,0: poke53281,0
100 gosub 1000
110 gosub 1500
120 get k$: if k$="" then 120
130 if k$=chr$(140) then 550
140 if k$<>chr$(13) then 120
200 gosub 1600
210 get k$: if k$="" then 210
220 if k$=chr$(140) then 550
230 if k$<>chr$(13) then 210
300 gosub 1700
310 get k$: if k$="" then 310
320 if k$=chr$(140) then 550
330 if k$<>chr$(13) then 310
400 gosub 1800
410 ml=23:gosub 5000
420 n$=t$:if t$="" then n$="an anonymous source"
430 gosub 1900
440 get k$: if k$="" then 440
450 if k$=chr$(140) then 550
460 if k$<>chr$(13) then 440
500 er=0: gosub 2000
505 if er=1 then goto 600
510 gosub 3000
520 get k$: if k$="" then 520
530 if k$=chr$(140) then 550
540 if k$<>chr$(13) then 520
550 poke de,8: sys uptime
600 gosub 1400
610 printspc(6)" [150] [212]here is a printer error [155]"
620 printspc(6)"[210]echeck all of your printer"
630 printspc(5)"connections and the printer's"
640 printspc(6)"paper supply and try again."
650 get k$: if k$="" then 650
660 if k$=chr$(140) then 550
670 if k$<>chr$(13) then 650
680 gosub 1400
690 printspc(16)"[208]rinting"
700 printspc(12)"[210]eader's [211]urvey"
710 goto 500
990 end
1000 print"[147]";
1010 tl$="[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
1020 bl$="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][155]"
1030 m1$="[221]": m2$=" [146][221]"
1040 m3$="[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
1050 c$="[158]": r$="": printtl$
1060 for x=1to23
1070 printm1$;c$;r$;m2$
1080 if x=5 then x=6: c$="": r$="[146]": printm3$
1090 if x=18 then x=19:c$="":r$="":printm3$
1100 next
1200 printbl$
1210 printspc(10)" [213]p[212]ime [158] [205]agazine's"
1220 printspc(12)"[210]eader's [211]urvey"
1230 for x=1to16: print: next
1240 printspc(7)"[208]ress [[210][197][212][213][210][206]] to [195]ontinue"
1250 printspc(4)"[208]ress [198]8 to [197]xit [194]ack to [213]p[212]ime[155]"
1290 return
1400 print"";
1410 for x=1to12
1420 print"[221] [221]"
1430 next
1440 print"[155]";
1450 return
1500 gosub 1400
1510 printspc(8)"[213]p[212]ime the [196]isk [205]onthly[155]"
1520 printspc(2)"is the [159]premiere[155] magazine on a disk"
1530 printspc(7)"for the [195]ommodore 64/128"
1540 printspc(5)"[215]e are constantly working to"
1550 printspc(8)"improve our publication"
1560 printspc(11)"and [217][207][213][155][160]can help!"
1590 return
1600 gosub 1400
1610 printspc(6)"[217]ou can help us stay #1[155] by"
1620 printspc(9)"providing your input:
1630 [153][166]6)"sys(NULL)raiselist, printlenriticismlist, openlenommentslist"
1640 [153][166]4)"atnnything that you feel will help"
1650 [153][166]7)"us meet your expectations"
1660 [153][166]14)"with (NULL)p(NULL)imelist"
1690 [142]
1700 [141] 1400
1710 [153][166]3)"peeky following the next few prompts"
1720 [153][166]5)"your printer will print out a"
1730 [153][166]5)"reader's survey form for you."
1740 [153][166]4)"(NULL)lease take the time to fill out"
1750 [153][166]3)"the survey and return it using the"
1760 [153][166]4)"enclosed business reply envelope."
1770 [153][166]4)"(NULL)e will use the results of this"
1780 [153][166]5)"survey to determine what it is"
1790 [153][166]3)"you've come to expect from (NULL)p(NULL)imelist": [142]
1800 [141] 1400
1810 [153][166]3)"right$f you'd like to include your name"
1820 [153][166]10)"enter it now, please."
1830 [153][166]2)"(atn [(NULL)val(NULL)(NULL)(NULL)(NULL)] will make it anonymous)"
1840 [153][166]4)"(NULL)ame:tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
1850 [153][166]8)"onon*cmd";
1860 [142]
1900 [141] 5200
1905 [153][166]11)"(NULL)eady your printer"
1910 [153][166]7)"(NULL)ress sys[(NULL)val(NULL)(NULL)(NULL)(NULL)]list when ready"
1920 [142]
2000 [159] 4,4:[160]4:s[178]st
2010 [139] a[179][177]0 [167] er[178]1: [137] 2490
2015 [159] 4,4,7
2020 [152]4,[199](10)[199](10)
2025 [152]4,""[166]11)"(NULL)eader's (NULL)urvey for the lenommodore 64/128 ";
2027 [152]4,"(NULL)ol. 1 (NULL)o. 11"
2030 [152]4,[199](10)
2040 [152]4," (NULL)his survey is from ";n$;"."
2050 [152]4,[199](10)[199](0)
2100 l$[178]"totototototototototototototototo"
2105 [139] dw[178]1 [167] l$[178]"................"
2165 [152]4," ***********************************";
2167 [152]4,"***********************************"
2170 bx$[178]"[ ] tototototototototototototototototototototototototototototototototototototo"
2172 [139] dw[178]1 [167] bx$[178]"[ ] ....................................."
2175 [152]4,[199](10)[199](0)
2180 [152]4," (NULL)lease rate the following programs and categories on a"
2190 [152]4," scale between 1 and 10 with 10 being the highest."
2195 [152]4,[199](10)[199](0)
2200 [152]4," (NULL)lanet (NULL)aiders ";bx$
2205 [152]4,[199](0)
2206 [152]4," (NULL)(NULL)(NULL)peek(NULL) lenatn(NULL)len/64 ";bx$
2207 [152]4,[199](0)
2210 [152]4," (NULL)ibrary 128 ";bx$
2212 [152]4,[199](0)
2214 [152]4," left$ome peekudget 64 ";bx$
2215 [152]4,[199](0)
2220 [152]4," peekatn(NULL)right$len-64 ";bx$
2225 [152]4,[199](0)
2230 [152]4," asc(NULL)(NULL)(NULL)left$ lenompiler ";bx$
2235 [152]4,[199](0)
2240 [152]4," str$isk atnuto(NULL)tat ";bx$
2247 [152]4,[199](0)
2250 [152]4," (NULL)esar on (NULL)rack ";bx$
2255 [152]4,[199](0)
2260 [152]4," (NULL)rogramming w/(NULL)(NULL) ";bx$
2265 [152]4,[199](0)
2266 [152]4," (NULL)andom atnccess ";bx$
2267 [152]4,[199](0)
2270 [152]4," (NULL)earning asc(NULL)(NULL)(NULL)left$ ";bx$
2275 [152]4,[199](0)
2276 [152]4," (NULL)oftware (NULL)eviews ";bx$:[152]4,[199](0)
2280 [152]4," right$'d rate the issue overall [ ]
2285 print#4,chr$(0)
2287 print#4,chr$(0)
2300 print#4," [193]ny other comments or observations you'd care to make:"
2305 print#4,chr$(0)
2310 print#4," ";l$;l$;l$;l$
2315 print#4,chr$(0)
2320 print#4," ";l$;l$;l$;l$
2325 print#4,chr$(0)
2326 print#4," ";l$;l$;l$;l$
2327 print#4,chr$(0)
2328 print#4," ";l$;l$;l$;l$
2330 print#4,chr$(12)
2490 close4: return
3000 gosub 1400
3010 printspc(5)"[212]hank-you for taking the time"
3020 printspc(8)"to print out the survey."
3030 printspc(3)"[215]e'll be waiting to hear from you."
3040 printspc(2)"[208]lease send the completed survey to"
3050 printspc(8)"[213]p[212]ime, the [196]isk [205]onthly[155]"
3060 printspc(8)"[208][207] [194]ox 30008
3070 [153][166]8)"(NULL)hreveport, (NULL)atn 71130-0008
3080 return
5000 t$="": cs$="*[157]": ct=0
5010 get k$: if k$="" then 5010
5020 k=asc(k$)
5025 if k=140 then 550
5030 if k=13 then 5100
5040 if k<>20 then 5070
5050 if ct=0 then 5010
5060 ct=ct-1: print" [157][157] [157]";cs$;: t$=left$(t$,ct): goto 5010
5070 if ct=ml then 5010
5080 if (k=32) or (k=46) then 5085
5082 if (k$>="a") and (k$<="z") then 5085
5084 if (k$<"[193]") or (k$>"[218]") then 5010
5085 t$=t$+k$: ct=ct+1: printk$;: if ct<>24 then printcs$;
5090 goto 5010
5100 if t$="" then print"[193]nonymous";
5110 print" ": return
5200 printspc(9)"[155][195]an your printer print"
5210 printspc(5)"[195]ommodore [199]raphic characters?"
5220 printspc(15)"[158]< [217] / [206] >[155]": print"[145][145][145]";
5230 dw=0
5240 get k$: if k$ = "" then 5240
5250 if (k$="y") or (k$="[217]") then 5280
5255 if k$=chr$(140) then 550
5260 if (k$<>"n") and (k$<>"[206]") then 5240
5270 dw=1
5280 for x=1to3: print" ": next
5285 print"[145][145][145][145]";
5290 return